home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Magazine / Online / QMail / source / scan_8long.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-04-15  |  342 b   |  12 lines
  1. #include "scan.h"
  2.  
  3. unsigned int scan_8long(s,u) register char *s; register unsigned long *u;
  4. {
  5.   register unsigned int pos; register unsigned long result;
  6.   register unsigned long c;
  7.   pos = 0; result = 0;
  8.   while ((c = (unsigned long) (unsigned char) (s[pos] - '0')) < 8)
  9.     { result = result * 8 + c; ++pos; }
  10.   *u = result; return pos;
  11. }
  12.